subroutine sectiontest
implicit none 
integer i,j, k
include 'omp_lib.h'
!$omp parallel sections
!$omp section

!$omp parallel do 
do i = 1, 1000
   k = omp_get_thread_num() 
   write(6,*)'i', i, k
enddo
!$omp end parallel do 

!$omp section
!$omp parallel do 
do j = 1, 1000
   k = omp_get_thread_num() 
   write(6,*)'j', j, k
enddo
!$omp end parallel do 
!$omp end parallel sections
end 
